prueba2

Marina

Resumen de los datos

library(tidyverse)
datos <- starwars |> 
  filter(sex %in% c("female", "male", "hermaphroditic"))
resumen <- datos |> count(sex)

Gráfico

Code
gg<-
  ggplot(resumen) +
  geom_col(aes(x = sex, y = n, fill = sex), alpha = 0.6) +
  ggthemes::scale_fill_colorblind() +
  theme_minimal()
plotly::ggplotly(gg)